home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 04838_Script__PanPic 2nd framePanPic 2nd frame.ls < prev    next >
Text File  |  1996-04-03  |  1KB  |  54 lines

  1. global zoom,rplane,rplanemask,lplane,lplanemask
  2. global zoomin,zoommask,zoomout,hand,handmask
  3.  
  4. on exitframe
  5.   if the mouseH > 620 and the mouseH < 640 and the mouseV < 437 then cursor [rplane,rplanemask] 
  6.   else if the mouseH < 20 and the mouseH > 0 then cursor [lplane,lplanemask]
  7.   else if the mouseV > the top of sprite 4 and the mouseH > the left of sprite 4 then -- rollover(4) then 
  8.     if zoom = 1 then 
  9.       cursor [zoomout,zoommask] 
  10.     else 
  11.       if the mouseV > (the stageTop + 458) then
  12.         cursor [zoomout,zoommask] 
  13.       else
  14.         cursor [zoomin,zoommask] 
  15.       end if
  16.     end if 
  17.   else cursor [hand,handmask] 
  18.   
  19.   go the frame
  20. end
  21.  
  22. on mouseDOWN
  23.   if the doubleclick then
  24.     dontpassevent
  25.   else
  26.     
  27.     set h = the mouseH
  28.     if the mouseV > the top of sprite 4 and the mouseH > the left of sprite 4 then
  29.       goCaption2  
  30.     else
  31.       
  32.       if h < 20 then
  33.         swapPic(0,3)
  34.       else if h > 620 then
  35.         swapPic(1,3)
  36.       else      
  37.         PanPic
  38.       end if
  39.       
  40.     end if
  41.   end if
  42.   
  43. end
  44.  
  45.  
  46. on keydown
  47.   if the keyCode = 123 then swapPic(0,3)
  48.   else if the keyCode = 124 then swapPic(1,3)  
  49. end
  50.  
  51.  
  52.  
  53.   
  54.